#!/usr/bin/env perl

# while
$a=10;
while( $a > 0 ){
        print("while循环：$a\t");
        $a=$a-1;
}
print("\n");
do{
        print("a：$a\t");
        $a=$a+1;     
}while($a < 5);
print("\n");

# untile
$a=5;
until( $a > 10 ){
        print("a=$a\t");
        $a=$a+1;
}
print("\n");

#for循环
for($a=0;$a<6;$a =$a + 1) {
        print("a=$a\t");
}
print("\n");

#foreach
@list=(2,3,5,7,9);
foreach $i (@list) {
       print("i=$i\t"); 
}
print("\n");

